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!• Purpose ; Given the coordinates of a point (X,Y) as a pair of floating 
point numbers, (a) plot as straight a line as possible from the present 
pen position to the given point, or (b) move the pen (in the raised 
position) as fast as possible to the given point. This subroutine is 
essentially a combination of the "Floating Point to Plottei^ Increment 
Conversion," "Line Plotter," and "Point Plotter" routines. 

2. Restrictions : The coordinates of the point must be normali zed float- 
ing point numbers, and should be consistent with scale factors and 
available plotting space. 

3. Method 

3»1 The method of "Floating Point to Plotter Increment Conversion" sub- 
routine is used determine the number of increments the pen is to be 
moved. 

3*2 The method of "Line Plotter" subroutine is used to plot with the pen 
down. 

3»3 The method of "Point Plotter" is used to move the pen in the raised 
position. 

h* Use : 

li.l Definition of coordinates: 

VJhen facing the plotter 

+x is the direction a line is drawn when the drum moves doi«i 

-X is the direction a line is drawn when the drum moves up 

+y is the direction a line is drawn when the carriage moves left 

-y is the direction a line is drawn when the carriage moves right 

li.2 Initialization: 

Before plotting the pen should be positioned manually and the following 
values supplied to the subroutine. This is to be accomplished by 
storing them in the V-loop and transferring to initialization entry 
(L^ * 2). 

7770 X "■ X coordinate of the initial pen position 
72 Y ■ Y " II » II It II 

7h X - X scale factor in units/inch 
s 

76 Y • y scale factor in units/inch 

X, Y (and X , Y ) are given in arbitrary units of the users choice; 
the scale factors X , Y are the desired number of these arbitrary 
units per inch of pen motion. 
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i;.3 Calling Sequences t 

To move the pen, in the raised position, to the point: 

CU KW 
TRA L 
RETURN^ 

To plot a line to the point (it is not necessary that the pen be 
down before calling): 

CLA KW 
TRA L ■»• 1 
RETURN^ 

where (KW) - ■► 00 XXXX + 00 THY 

with XXXX - location of floating point X coordinate 
YYYY « 11 M H ti Y ** 

To initialize: 

CTV (initialization data as described in li.2) 

TRA L + 2 

RETURf? 

To reset (return pen, in raised position, to initial position 



X , Y ) 
o' o 



TRA L + 3 
o 



RETURN 

5. Coding Information 

^•1 Locations used: 

This routine occupies 210q locations (from L to L •♦• 207). It 
destroys both loops and all registers. 

5»2 Constants 

L^ + 52 02q at b - 18 

53 Olg »• 

tu -tQ n ) hasic pen commands for line plot 

55 01.8 



It 



L I- 63 +1. at b - 39 
o 



h * 1^2 P,j 



^.- p / Alphanumeric words. Basic pen 

■^ -X ( commands for point plot. See 

111a P^y T paragraph 3«1 of "Line Plot" 

-- j^ p I ' description 
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L •»■ lii5 +1., b - 39 
° + 1U6 +7., b * 39 



L + 171,2 + 100,0 floating point 
L + 202,3 ■»• 0.5 " " 



5.3 Variables 






176,7 


X 



Y 
o 


floating point 

H II 


L ♦ 200 



201 


^ 
h 


b - 39 
b - 39 


\ * 202,3 
201^,5 


X 
s 

Y 


floating 
point 



5»i4 Unused locations 
None 

5.5 Erasable Locations 

L + 10 

° 61, 

66 

67 

5.6 This subroutine is relocatable by the method of AN-076 

6. Remark ; Change of Coordinate System 

The coordinate system as defined by I4.I is such that, when facing 
the plotter, the x axis is positive upward and the y axis is positive 
to the left. It is frequently convenient to have the coordinate 
system defined in such a manner that the y axis is positive upward 
and the x axis is positive to the right (i.e., a 90 degree clock- 
wise rotation of the standard plotter coordinate system). This 
result may be achieved by altering the following locations to read 
(in command format)? 

L •»- 52 + 00 OOOliO 00 00000 

^53 •»■ 00 00100 00 00000 

5U + 00 00020 00 00000 

55 * 00 00010 00 00000 

L + 112 - 20 ai020 20 11020 

^ 113 - Ui 020iiO Ui 020)40 

111; - 10 2OUIO 10 20hlO 
115 - Oli 10201 OU 10201 
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Pa- 



0000.0 



+ SAX 


0010.0 


+ 


Tf<A 


oooh . 1 


'\- SAX 


0010.0 


+ 


TkA 


OOCd.O 


+ SAX 


0010.0 


+ 


TRA 


0160.0 


+ SAX 


0010.0 


+ 


ADD 


0012.0 


+ TRA 


0040.0 


+ 


CTL 


0010.0 


+ ADD 


7762.0 
ooeo.o 


+ 


TRA 


7763.0 


+ PNC 


+ 


CTL 


0010.0 


+ ADD 


7761 .0 


+ 


TRA 


7763.0 


0010.0 










+ CLA 


117^.0 


+ 


CLA 


1176.0 

0060.1 


+ 70 


0050.0 


+ 


TRA 


+ 70 


0110,0 


+ 


TRA 


0000.1 


+ STO 


0157.0 
7799.0 


+ 


STA 


0044.0 


+ CLA 


+ 


CTV 


0200.0 


+ STA 


7766.0 
ooeo.o 


+ 


STA 


0026.1 


+ FCA 


+ 


FDV 


777^.0 


+ CTL 


+ 


TRA 


7760.0 


ooeo.o 










+ TPL 


7761.1 


+ 


FSB 


7772.0 


+ TRA 
+ XAR 


7762.0 

0600.0 


+ 


FAD 
ALS 


oooi !o 


+ SUB 


776H.0 
0600.0 


+ 


STA 


7764 . 1 
6647.0 


+ XAR 


+ 


AR5 


+ STO 


0200.0 


+ 


SUB 


7770.0 


+ STO 


O03o!o 


+ 


FCA 


1 176.0 


+ CTL 


+ 


TRA 


7760.0 


0030.0 










+ FDV 


7776.0 


+ 


TPL 


7762.0 


+ FSB 


7772.0 


+ 


TRA 




+ FAD 
+ ALS 


0001 !o 


+ 

+ 


XAR 
SUB 


ooooio 

7765.0 


+ STA 
+ XAR 


6600.0 


+ 
+ 


CLA 

ARS 


^0^47 !o 


+ STO 


0201 .0 


+ 


SUB 


7771.0 


+ CTL 


OO^rO.O 


+ 


TRA 


7763 . 1 



00^^0.0 
+ STA 
+ TRA 
+ CLA 



+ 
+ 
+ 
+ 
+ 



70 

CTV 

FST 

CLA 

CLA 



0050.0 
+ CTL 
+ CLA 
+ CLA 
+ CLA 
+ CLA 
+ CLA 
+ XAR 
+ XAR 

0060.0 
+ CLA 
+ CLA 
+ TZE 
+ FCA 
+ FST 
+ FCA 
+ FST 
+ CTL 

0070.0 
+ ADD 
+ ADD 
+ CLA 
+ STO 
CLA 
TRA 
PNC 



+ 

+ 
+ 



+ PNC 



004 1 .1 

0000.0 

0174.0 

0000.0 
1110.0 

7776.0 
7773.0 
7772.0 

0060.0 
0002 !o 

0001 .0 
0010.0 

0004.0 

0000.0 
0000.0 



777|l.o 
Ol04!o 

7776-0 
7776.0 

777^.0 
6670.0 



7766.0 
7775.0 

7766.0 
7776.1 

6620.0 

0020.0 



+ CLA 
+ TRA 
+ CLA 
4 XAR 
+ TZE 
+ TPL 
+ TRA 
+ XAR 



0042.0 

3071.1 

0176.0 

0060.0 

7776.0 

7707.0 

oooolo 



+ TPL 7760.0 
+ TRA 7760.1 

- CLA 6600.0 

- CLA 0000.0 

- CLA 0000,0 

- CLA 0000.0 
+ TZE 0157.1 
+ TRA 7765.0 



+ FST 
+ SUB 
+ TPL 
+ XAR 
+ TRA 
+ XAR 
+ CLA 
+ TRA 



+ STO 
+ STA 
+ DSR 
+ XAR 
+ CTV 
70 



+ 



+ TRA 
+ XAR 



777^.0 

7777.1 
7765.0 
0600.0 
7766.1 

6600.0 

777^.0 
7760.0 



7766.0 
7767.0 

0060 !o 
0100.0 

ooeo.o 

7767.1 

0000.0 
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0100.0 
+ SUB 
+ XAR 
+ TOV 
+ CLA 
+ CTL 
+ XAR 
+ ADD 
+ TRA 

0110.0 
+ CTL 
+ CLA 

- 10 

- FAD 

- ALS 

- DSL 
TRA 
TRA 



+ 
+ 



0120.0 
+ CLA 
+ CLA 
+ STO 
+ FCA 
+ FST 
FCA 
FST 



0000 !o 

0000.0 
0070.0 
0000.0 

777^0 

llbk.O 



0120.0 

7775.0 

20^1 .0 
1020.1 
02 Oil. 
i^l02.0 

77^5-0 
0167,1 

777^.-0 



+ 
+ 



H- CTL 
0130.0 



'li|4.0 

777^0 
777^.0 
777^.0 
7776.0 
6130.0 



+ TMI 0157,1 
+ ADD 7750.0 
+ TRA 7766.0 
- CLA 0600.1 
+ STO 7760.0 
+ ADD 7766.0 
+ STO 7766.0 
-f 70 6600.0 



+ TPL 7760.0 
+ TRA 7760,1 

- 10 20^41 .0 

- FAD 1020.1 

- ALS 0204,0 

- DSL 4l02,0 
+ 70 0000,0 
+ FCA 0176.0 



+ FST 
+ SUB 
+ TPL 
+ XAR 
+ TRA 
+ XAR 
+ FCA 
+ TRA 



777^.0 

7777.^ 
77b5.o 
0600.0 

6600.0 
777^.0 
77^0.0 



+ 


ADD 


+ 


CLA 


+ 


SUB 


+ 


XAR 


+ 


P?n1C 


+ 


TRA 


+ 


TZE 


+ 


ADD 



7775.0 + FST Oll}6.0 

7776.1 

ocoo!o 
7760.0 



7762.0 
7771 .0 

7770.0 



01^0,0 

7765.1 

0000 !o 


+ STO 7770.0 



+ CTV 
+ TMI 
+ CLA 

n- XAR 

+ ADD 7 
+ ALS 



0661 ! 



01^10.0 










+ CLA 
+ CTL 


7776.0 
6150.0 


+ 

+ 


PNC 
CLA 


7760.0 
777^ .1 


+ XAR 


0000.0 


+ 


TRA 


7761 .0 

6000.0 


+ CLA 


0000,0 


- 


CLA 


+ CLA 


0000,0 


- 


CLA 


0000.0 


+ CLA 


0000.0 


- 


CLA 


oooH.o 


- 2k 


5122.1 


- 


2k 


5122.1 


- FAD 


1020,1 


- 


FAD 


1020,1 


0150.0 










+ XAR 


0000.0 


+ 


PNC 


7760.0 
6600.0 


+ CLA 


7777.0 


+ 


XAR 


+ SUB 


7775.0 


+ 


TPL 


7760.0 


+ ADD 


oooi !o 


+ 


TZE 


7767.1 


+ ALS 


+ 


ADD 


7766.0 

6600.0 


+ STO 


7766.0 


+ 


70 


+ CLA 


7777.0 


+ 


PNC 


7760.0 


+ 70 


1110.0 


+ 


TRA 


1041 .1 


0160,0 










+ ADD 


0012.0 


+ 


STA 


0170.1 


+ FCA 


Ulk\o 


+ 


FDV 


0171 ,0 


+ FST 


+ 


FCA 


7776.0 


+ FDV 


0171 .0 


■h 


FST 


0206.0 


+ FCA 


1110.0 


+ 


FST 


0174.0 


+ FCA' 


■7772.0 

6117.0 


+ 


FST 


0176.0 


+ CLA 


+ 


STO 


0037,0 


+ TRA 


OOlil.l 


+ 


CLA 


0173,0 


0170.0 










+ STO 


0037,0 
0006.0 


+ 


TRA 


3061 ,0 


+ 62 


- 


CLA 


0000,0 


+ CLA 


-0000,0 


- 


CLA 


0003,1 


+ CTL 


OOilO.O 


+ 


TRA 


6600.0 


- ARS 


0000.0 


- 


CLA 


■ + CLA 


0000,0 


- 


CLA 


0000.1 


- ARS 


0000,0 


- 


CLA 


0000.0 


+ CLA 


0000.0 


- 


CLA 


OCOO.l 
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0200.0 






- 


CLA 


0000, 


.0 


- 


CLA 


0000, 


.0 


+ 


ARS 


0000, 


.0 


+ 


CLA 


0000, 


.0 


+ 


TZE 
CLA 


0000 ! 


»o 

.0 


+ 


TZE 


Mo] 


.0 


- 


CLA 


.0 
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- CLA 0062.0 

- CLA 0062.0 

- CLA 0000.0 

- CLA 0000.0 
-TZE 753^.0 
-CLA 0003.0 

- TZE 7535 oC 

- CLA 0003.0 



